home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_077 / samples / pas.d < prev    next >
Text File  |  1992-05-06  |  397b  |  21 lines
  1. int SIZE = 13;
  2.  
  3. proc main()void:
  4.     int i, j, k;
  5.     [SIZE] int oldArray, newArray;
  6.  
  7.     for i from 1 upto SIZE - 1 do
  8.     newArray[i] := 0;
  9.     od;
  10.     newArray[0] := 1;
  11.     for i from 0 upto SIZE - 1 do
  12.     write(newArray[0] : (40 - 3 * i));
  13.     for j from 1 upto i do
  14.         newArray[j] := oldArray[j] + oldArray[j - 1];
  15.         write(newArray[j] : 6);
  16.     od;
  17.     oldArray := newArray;
  18.     writeln();
  19.     od;
  20. corp;
  21.